home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / jackpot.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1979-12-31  |  5.1 KB  |  143 lines
  1. 1  REM<UNK! {0009}>     JACKPOT
  2. 2  REM<UNK! {0009}>BY BRIAN FAWCETT
  3. 3  REM  (C) 1984 ALFRED PUBLISHING CO.
  4. 5  WIDTH 40:KEY OFF:COLOR 0,4,4::DEFINT X,Y:CLS:GOSUB 900
  5. 10  CLS:A=200:CT=0
  6. 30  LOCATE 1,10:COLOR 4,0:PRINT" YOUR$    ":LOCATE 1,21:PRINT " HOW?     ";CHR$(222);:COLOR 0,4:PRINT CHR$(8):COLOR 4,0
  7. 40  LOCATE 2,10:PRINT"AMOUNT    ":LOCATE 2,21:PRINT" MUCH     ";CHR$(222);" "
  8. 50  COLOR 9,4:LOCATE 3,8:PRINT STRING$(26,219)
  9. 60  PRINTTAB(7)S$
  10. 70  COLOR 0,4:PRINT"7-7-7 ";:COLOR 9:PRINT S$
  11. 80  COLOR 0,4:PRINT"JACK  ";:COLOR 9:PRINT S$;TAB(37);:COLOR 15:PRINT"(";CHR$(219);")"
  12. 90  COLOR 0,4:PRINT"  POT ";:COLOR 9:PRINT S$;TAB(37);:COLOR 15:PRINT"(";CHR$(219);")"
  13. 100  COLOR 9:PRINT TAB(7)S$;TAB(38)CHR$(219)
  14. 110  COLOR 0:PRINT"$-$-$ ";:COLOR 9:PRINT S$;TAB(38)CHR$(219)
  15. 120  COLOR 0:PRINT"TRIPLE";:COLOR 9:PRINT STRING$(28,219);TAB(38)CHR$(219)
  16. 130  PRINT TAB(7)STRING$(28,219);TAB(38)CHR$(219)
  17. 140  COLOR 0:PRINT"7-7-  ";:COLOR 9:PRINT STRING$(10,219);:COLOR 3:PRINT STRING$(8,219);:COLOR 9:PRINT STRING$(10,219);TAB(38)CHR$(219)
  18. 150  COLOR 0:PRINT"DOUBLE";:COLOR 9:PRINT STRING$(28,219);TAB(38);CHR$(219)
  19. 160  PRINT TAB(7)STRING$(10,219);:COLOR 3:PRINT STRING$(8,219);:COLOR 9:PRINT STRING$(10,219);TAB(38)CHR$(219)
  20. 170  COLOR 0:PRINT CHR$(4);"-";CHR$(4);"-  ";:COLOR 9:PRINT STRING$(10,219);:COLOR 3:PRINT STRING$(8,219);:COLOR 9:PRINT STRING$(10,219);TAB(38)CHR$(219)
  21. 180  COLOR 0:PRINT"DOUBLE";:COLOR 9:PRINT STRING$(5,219);" \ \ \ \  / / / / ";STRING$(5,219);TAB(37)STRING$(3,219)
  22. 190  PRINT TAB(7)STRING$(6,219);" \ \ \ \/ / / / ";STRING$(11,219)
  23. 200  COLOR 0:PRINT"7-$-";CHR$(4);" ";:COLOR 9:PRINT STRING$(7,219);" \ \ \  / / / ";STRING$(7,219);TAB(37)STRING$(3,219)
  24. 210  COLOR 0:PRINT"JACK  ";:COLOR 9:PRINT STRING$(8,219);" \ \ \/ / / ";STRING$(8,219)
  25. 220  COLOR 0:PRINT"  POT ";:COLOR 9:PRINT STRING$(28,219)
  26. 230  PRINT TAB(7)STRING$(6,219);:COLOR 0,9:PRINT"BY BRIAN FAWCETT";:COLOR 9,4:PRINT STRING$(6,219)
  27. 240  PRINTTAB(7)STRING$(28,219)
  28. 250  PRINT TAB(12)CHR$(219);TAB(29)CHR$(219)
  29. 260  PRINT TAB(11)STRING$(2,219);TAB(29)STRING$(2,219);
  30. 270  LOCATE 25,10:COLOR 0:PRINT "BET ZERO TO QUIT GAME";
  31. 400  A%=A:A=A%:LOCATE 1,25:COLOR 4,0:PRINT "     "
  32. 410  LOCATE 1,16:COLOR 4,0:PRINT USING"####";A;
  33. 430  LOCATE 1,25:INPUT HM$:HM=VAL(HM$)
  34. 432  IF  HM=0  THEN CLS:PRINT:PRINT "THATS IT! YOU BET ZERO!":CLS:NEW            
  35. 435  IF HM>A THEN 430
  36. 437  RANDOMIZE VAL(RIGHT$(TIME$,2))
  37. 440  FI=INT(3*RND(1))+1
  38. 450  SE=INT(3*RND(1))+1
  39. 460  TH=INT(3*RND(1))+1
  40. 470  FOR X=6 TO 15:LOCATE X,37:COLOR 15,4:PRINT"   ":LOCATE X+1,37:PRINT"(";CHR$(219);")":LOCATE X+2,37:PRINT"(";CHR$(219);")"
  41. 480  FOR Y=1 TO 500:NEXT:NEXT
  42. 500  U=18:FOR Y=1 TO 10:U=U-1
  43. 510  FOR X=4 TO 9:COLOR 3
  44. 520  LOCATE X,10:PRINT L$;:IF X>4 THEN LOCATE X-1,10:PRINT SPACE$(6);
  45. 530  LOCATE X,18:PRINT L$;:IF X>4 THEN LOCATE X-1,18:PRINT SPACE$(6);
  46. 540  LOCATE X,26:PRINT L$;:IF X>4 THEN LOCATE X-1,26:PRINT SPACE$(6);
  47. 545  SOUND 37,1
  48. 550  NEXT
  49. 560  IF Y=1 THEN 570 ELSE IF Y=2 THEN 580 ELSE 590
  50. 570  COLOR 9:LOCATE 17,37:PRINTSTRING$(3,219):COLOR 15:LOCATE 15,37:PRINT"(";CHR$(219);")":GOTO 600
  51. 580  COLOR 9:LOCATE 16,37:PRINTSTRING$(3,219):COLOR 15:LOCATE 14,37:PRINT"(";CHR$(219);")":GOTO 600
  52. 590  COLOR 9:LOCATE U,37:PRINT" ";CHR$(219);" ":LOCATE U-2,37:COLOR 15:PRINT"(";CHR$(219);")"
  53. 600  LOCATE 9,10:PRINTSPACE$(6):LOCATE 9,18:PRINTSPACE$(6):LOCATE 9,26:PRINTSPACE$(6)
  54. 605  SOUND 37,1
  55. 610  NEXT:FOR Y=1 TO 5
  56. 620  FOR X=4 TO 9:COLOR 3
  57. 630  LOCATE X,10:PRINT L$;:IF X>4 THEN LOCATE X-1,10:PRINT SPACE$(6);
  58. 640  LOCATE X,18:PRINT L$;:IF X>4 THEN LOCATE X-1,18:PRINT SPACE$(6);
  59. 645  SOUND 37,1
  60. 650  LOCATE X,26:PRINT L$;:IF X>4 THEN LOCATE X-1,26:PRINT SPACE$(6);
  61. 652  LOCATE 9,10:PRINT SPACE$(6):LOCATE 9,18:PRINT SPACE$(6):LOCATE 9,26:PRINT SPACE$(6)
  62. 655  SOUND 37,1
  63. 660  NEXT:NEXT
  64. 665  COLOR 0
  65. 670  IF FI=1 THEN 700
  66. 680  IF FI=2 THEN 710
  67. 690  IF FI=3 THEN 720
  68. 700  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,10:PRINT J$(1,X):NEXT:GOTO 730
  69. 710  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,10:PRINT J$(2,X):NEXT:GOTO 730
  70. 720  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,10:PRINT J$(3,X):NEXT
  71. 730  FOR Y=1 TO 5
  72. 740  FOR X=4 TO 9:COLOR 3
  73. 750  LOCATE X,18:PRINT L$;:IF X>4 THEN LOCATE X-1,18:PRINT SPACE$(6);
  74. 760  LOCATE X,26:PRINT L$;:IF X>4 THEN LOCATE X-1,26:PRINT SPACE$(6);
  75. 761  SOUND 37,1
  76. 762  LOCATE 9,18:PRINT SPACE$(6):LOCATE 9,26:PRINT SPACE$(6)
  77. 764  FOR U=1 TO 30:NEXT
  78. 765  SOUND 37,1
  79. 770  NEXT:NEXT
  80. 775  COLOR 0
  81. 780  IF SE=1 THEN 790
  82. 783  IF SE=2 THEN 800
  83. 785  IF SE=3 THEN 810
  84. 790  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,18:PRINT J$(1,X):NEXT:GOTO 830
  85. 800  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,18:PRINT J$(2,X):NEXT:GOTO 830
  86. 810  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,18:PRINT J$(3,X):NEXT
  87. 830  FOR Y=1 TO 5
  88. 840  FOR X=4 TO 9:COLOR 3
  89. 850  LOCATE X,26:PRINT L$;:IF X>4 THEN LOCATE X-1,26:PRINT SPACE$(6);
  90. 860  LOCATE 9,26:PRINT SPACE$(6)
  91. 864  FOR U=1 TO 60:NEXT
  92. 865  SOUND 37,1
  93. 870  NEXT:NEXT
  94. 875  COLOR 0
  95. 880  IF TH=1 THEN 893
  96. 885  IF TH=2 THEN 895
  97. 890  IF TH=3 THEN 897
  98. 893  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,26:PRINT J$(1,X):NEXT:GOTO 898
  99. 895  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,26:PRINT J$(2,X):NEXT:GOTO 898
  100. 897  SOUND 500,5:FOR X=1 TO 6:LOCATE X+3,26:PRINT J$(3,X):NEXT
  101. 898  GOTO 980
  102. 900  J$(1,1)="      ":J$(1,2)=" "+STRING$(4,219)+" "
  103. 905  J$(1,3)="    "+CHR$(219)+" ":J$(1,4)="   "+CHR$(219)+"  "
  104. 910  J$(1,5)="  "+CHR$(219)+"   ":J$(1,6)=" "+CHR$(219)+"    "
  105. 915  J$(2,1)="   $  ":J$(2,2)="  $$$ "
  106. 920  J$(2,3)=" $ $  ":J$(2,4)="  $$  "
  107. 925  J$(2,5)="   $$ ":J$(2,6)="  $$  "
  108. 930  J$(3,1)="  "+STRING$(2,219)+"  ":J$(3,2)=" "+STRING$(4,219)+" "
  109. 935  J$(3,3)=STRING$(6,219):J$(3,4)=STRING$(6,219)
  110. 940  J$(3,5)=" "+STRING$(4,219)+" ":J$(3,6)="  "+STRING$(2,219)+"  "
  111. 945  L$=STRING$(6,205)
  112. 950  S$=STRING$(3,219)+SPACE$(6)+STRING$(2,219)+SPACE$(6)+STRING$(2,219)+SPACE$(6)+STRING$(3,219)
  113. 960  T$=" TRIPLE":D$=" DOUBLE"
  114. 965  JP$="JACK POT":C1$="OOOOOOOO":C2$="OOOOOOOO"
  115. 970  RETURN
  116. 980  IF FI=1 AND SE=1 AND TH=1 THEN A=A+(HM*4):W$=JP$:GOTO 1050
  117. 985  IF FI=2 AND SE=2 AND TH=2 THEN A=A+(HM*3):W$=T$:GOTO 1050
  118. 990  IF FI=1 AND SE=1 THEN A=A+(HM*2):W$=D$:GOTO 1050
  119. 995  IF FI=3 AND SE=3 THEN A=A+(HM*2):W$=D$:GOTO 1050
  120. 1000  IF FI=1 AND SE=2 AND TH=3 THEN A=A+(HM*4):W$=JP$:GOTO 1050
  121. 1010  A=A-HM:IF A<1 THEN COLOR 0,4:CLS:PRINT:PRINT "YOU'RE ALL OUT!":GOTO 1020
  122. 1015  FOR X=1 TO 500:NEXT:GOTO 400
  123. 1020  PRINT:PRINT "  WOULD YOU LIKE TO PLAY AGAIN <Y/N>?"
  124. 1030  A$=INKEY$:IF A$="y" OR A$="Y" THEN RUN
  125. 1032  IF A$="n" OR A$="N" THEN PRINT:PRINT"O.K. BYE NOW.":RUN"FILES.BAS"
  126. 1035  GOTO 1030
  127. 1037  GOTO 1020
  128. 1040  IF A>=1000 THEN CLS:PRINT:PRINT:PRINT "   YOU BEAT THE HOUSE!":GOTO 1020
  129. 1045  FOR X=1 TO 1500:NEXT:GOTO 400
  130. 1050  LOCATE 12,17:COLOR 0,3:PRINT W$
  131. 1055  LOCATE 14,17:PRINT C1$:LOCATE 15,17:PRINT C2$:COLOR 1,4:FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  132. 1060  LOCATE 16,19:PRINT "\  /":LOCATE 17,20:PRINT "\/":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  133. 1065  LOCATE 16,17:PRINT "\ \  / /":LOCATE 17,18:PRINT "\ \/ /":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,3:NEXT
  134. 1070  LOCATE 18,19:PRINT "\  /":LOCATE 19,20:PRINT "\/":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  135. 1075  LOCATE 16,15:PRINT "\ \ \  / / /":LOCATE 17,16:PRINT "\ \ \/ / /":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  136. 1080  LOCATE 18,17:PRINT "\ \  / /":LOCATE 19,18:PRINT "\ \/ /":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  137. 1085  LOCATE 16,13:PRINT "\ \ \ \  / / / /":LOCATE 17,14:PRINT "\ \ \ \/ / / /":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  138. 1090  LOCATE 18,15:PRINT "\ \ \  / / /":LOCATE 19,16:PRINT "\ \ \/ / /":FOR X=1 TO 5:SOUND 30000,1:SOUND 1000,1:NEXT
  139. 1100  LOCATE 12,17:COLOR 3:PRINT STRING$(8,219)
  140. 1110  LOCATE 14,17:PRINT STRING$(8,219):LOCATE 15,17:PRINT STRING$(8,219)
  141. 1120  CT=CT+1:IF CT>1 THEN CT=0:GOTO 1040
  142. 1130  COLOR 9,4:GOTO 1060
  143.